home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / easydr2.zip / EASYPARA.BI < prev    next >
Text File  |  1991-11-15  |  3KB  |  70 lines
  1. ' Easy-Door V2.0 Parameters
  2. ' -------------------------
  3. '
  4. ' See EasyDoor.DOC for more information
  5. '
  6.  
  7. REDIM Para$(37), NPara(18)
  8.  
  9. lf$ = CHR$(13) + CHR$(10)
  10. FullName$ = Cap$(FullName$)
  11.  
  12. Para$(1) = lf$ + lf$ + AnsiReset$ + Bright$ + Green$ + "Sysop Chat Mode Entered..."
  13. Para$(2) = Yellow$ + "■ ESC to End Chat Mode" + lf$
  14. Para$(3) = lf$ + Green$ + "Hello " + FullName$ + ", this is the Sysop." + lf$
  15. Para$(4) = Cyan$
  16. Para$(5) = Magenta$
  17. Para$(6) = Green$ + lf$ + lf$ + "Sysop Chat Mode Ended." + lf$
  18. Para$(7) = Red$ + lf$ + lf$ + "**** Warning - User inactivity timeout in 30 seconds."
  19. Para$(8) = Red$ + lf$ + "**** User inactivity timeout, Hanging Up..." + AnsiReset$
  20. Para$(9) = "ERROR: "
  21. Para$(10) = AnsiReset$ + CHR$(12) + "Press S to Stop or P to Pause" + lf$
  22. Para$(11) = AnsiReset$ + CHR$(12) + "Press P to Pause" + lf$
  23. Para$(12) = "P" ' Pause key
  24. Para$(13) = "S" ' Stop key
  25. Para$(14) = " Hanging Up..."
  26. Para$(15) = "No Carrier, Communication Lost."
  27. Para$(16) = lf$ + lf$ + "Data file not found." + lf$
  28. Para$(17) = "  Returning to BBS..."
  29. Para$(18) = "Exceeded  "
  30. Para$(19) = Red$ + lf$ + lf$ + "**** Time Limit Exceeded. Call Back Tomorrow ****" + lf$ + lf$
  31. Para$(20) = Bright$ + Green$ + "More " + Yellow$ + "Y" + Green$ + "/" + Yellow$ + "N" + Green$ + " ? "
  32. Para$(21) = "Y" ' key for more
  33. Para$(22) = "N"  'key for more
  34. Para$(23) = AnsiReset$ + STRING$(12, 8)
  35. Para$(24) = "Needs a Revision 5 Fossil Communication Driver to Operate."
  36. Para$(25) = "Paused   "  ' When PauseClock
  37. Para$(26) = lf$ + Red$ + "The Sysop has shelled to DOS..."
  38. Para$(27) = AnsiReset$ + "DOS Shell Function:" + lf$ + lf$ + "Type <EXIT> to Return to DOOR"
  39. Para$(28) = Bright$ + Green$ + CHR$(12) + "The Sysop has Returned from DOS, Thanks for Waiting!"
  40. Para$(29) = Red$ + lf$ + "**** Warning: Less than 2 minutes remaining this call." + lf$
  41. Para$(30) = FullName$
  42. Para$(31) = Location$
  43. Para$(32) = Baud$
  44. Para$(33) = Com$              ' COMx
  45. Para$(34) = AnsiFlag$         ' ANSI
  46. Para$(35) = TimeRemaining$    ' Time left by User when entering Door
  47. Para$(36) = "Local Mode"      ' Message when in Local Mode
  48. Para$(37) = " min. "          ' Message after time display
  49.  
  50. NPara(1) = 55   ' Delay to lower DTR when Hanging UP (18th/sec)
  51. NPara(2) = 15   ' Pause delay when 'P' hit (sec)
  52. NPara(3) = 120  ' User Inactivity Timeout in sec.
  53. NPara(4) = 18   ' Delay after a No Carrier (18th/sec)
  54. NPara(5) = 72   ' Delay when DATA FILE NOT FOUND (18th/sec)
  55. NPara(6) = 24   ' Nb of line wanted on screen
  56. NPara(7) = 1    ' Carrier Detect On/Off
  57. FG = 11: BG = 1 ' Foreground and Background Color for status bar
  58. NPara(8) = FG + 16 * BG   ' Status Bar Color (combined color number)
  59. NPara(9) = 1    ' Enable Time Counter
  60. NPara(10) = 0   ' Used internally by Time Counter
  61. NPara(11) = 5   ' Row where to put cursor when shelling to DOS
  62. NPara(12) = 1   ' Enable ALT-X or ALT-R to EXIT DOOR
  63. NPara(13) = 120 ' Enable warning before daily timeout ( >0 = ON) (sec)
  64. NPara(14) = 1   ' Enable keys to change time
  65. NPara(15) = 0   ' Used internally by Inactivity checker
  66. NPara(16) = 0   ' Turn off ALT-C, 0=Not Turned OFF, 1=Turned OFF
  67. NPara(17) = 1   ' Enable Status Bar
  68. NPara(18) = 42  ' Column where # of BAUD/LOCALLY is printed on status bar
  69.  
  70.